collapse_by <- function(x, y, add_plus = FALSE) {
  if (add_plus) {
    return(paste0(paste(x, y, sep = " * "), " +\n    "))
  } else {
    return(paste(x, y, sep = " * "))
  }
}